home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / d / dpaintv5_2program.dms / dpaintv5_2program.adf / Français-DeluxePaintV < prev    next >
Text File  |  1994-10-21  |  17KB  |  520 lines
  1. ; $Id: Install-DeluxePaintV,v 1.7 94/08/10 15:58:27 lee Exp $
  2. ; $VER: Install-DeluxePaintV 1.7
  3. ;
  4. ; Copyright (c) 1994 Electronic Arts, Inc. All Rights Reserved.
  5.  
  6.  
  7. (set app_prefix "DPaintV_")
  8. (set app_disk1  "Install")
  9. (set app_disk2  "Media")
  10. (set app_disk3  "Examples")
  11. (set app_disk4  "Extras")
  12.  
  13.  
  14. (set app_volume1 (cat app_prefix app_disk1 ":"))
  15. (set app_volume2 (cat app_prefix app_disk2 ":"))
  16. (set app_volume3 (cat app_prefix app_disk3 ":"))
  17. (set app_volume4 (cat app_prefix app_disk4 ":"))
  18.  
  19.  
  20. (set expert_user_level 2)
  21. (set orig_user_level @user-level)
  22.  
  23.  
  24. ; standard amiga error codes
  25. (set RC_OK     0
  26.      RC_WARN   5
  27.      RC_ERROR 10
  28.      RC_FATAL 20
  29.      )
  30.  
  31.  
  32. ; program install options
  33. (set INSTF_DPAINT  1
  34.      INSTF_DPLAYER 2)
  35.  
  36. ;
  37. ; determine AmigaDos version and revision numbers
  38. ;
  39.  
  40. (set AmigaDos_Number   (getversion))
  41. (set AmigaDos_Version  (/ AmigaDos_Number 65536))
  42. (set AmigaDos_Revision (- AmigaDos_Number (* AmigaDos_Version 65536)))
  43.  
  44. ;
  45. ; set up some message strings
  46. ;
  47.  
  48. (set format_msg
  49.    (cat
  50.       "Veuillez insérer une disquette vide non protégée en "
  51.       "écriture dans le lecteur et cliquer sur le bouton "
  52.       ""Continuer". Ce sera la disquette de destination.\n\n"
  53.  
  54.  
  55.       "A la demande du système, placez la disquette source "
  56.  
  57.       "( \"DPaintV_Install\") dans un lecteur autre que DF0.\n\n" 
  58.    )
  59. )
  60.  
  61.  
  62. (set format_help
  63.    (cat
  64.       format_msg
  65.  
  66.       "Attention : toutes les données de la disquette non "
  67.       "protégée en écriture seront écrasées !\n\n"
  68.  
  69.       "Avant de continuer, vérifiez que toutes les disquettes "
  70.       "source de DeluxePaintV sont protégées en écriture !!"
  71.    )
  72. )
  73.  
  74.  
  75. ; --------------------------------------------------------------------
  76. ; format_disk:
  77. ;   standard floppy format procedure.
  78. ;   if an error occurs during the format, a message will be put up
  79. ;   and the user re-prompted.
  80. ;
  81. ; inputs:
  82. ;   <DstDiskName> : The name to use when formatting the disk.
  83. ;
  84. ; outputs:
  85. ;   <fmt_error>  will be set to 0 if disk was formatted successfully,
  86. ;                or some value <= RC_WARN if the user cancelled the format.
  87. ;
  88. (procedure format_disk
  89.    (run "echo >ram:newline <nil: \"\"")
  90.    (run ("assign \"%s\" remove" (cat DstDisName ":")))
  91.    (user expert_user_level)
  92.    (set fmt_error RC_FATAL)
  93.    (until (<= fmt_error RC_WARN)
  94.      ((set fmt_error
  95.            (run  ("sys:system/format DRIVE DF0: NAME \"%s\" FFS NOICONS >NIL: <ram:newline" DstDiskName)
  96.                  (help format_help)
  97.                  (prompt (cat ("Création de la disquette \"%s\"...\n\n" DstDiskName) format_msg))
  98.                  (confirm)
  99.                  )
  100.             )
  101.        (transcript "format_result = " fmt_error)
  102.        (if (> fmt_error RC_WARN)
  103.            (message ("Erreur de formattage de la disquette \"%s\"" DstDiskName)))
  104.        
  105.        ))
  106.     (user orig_user_level)
  107.     (delete ram:newline)
  108. )
  109.  
  110.  
  111.  
  112. ; --------------------------------------------------------------------
  113. (procedure setup_floppy_install
  114.   (user expert_user_level)
  115.   (message "L'installation complète sur disquettes nécessite "
  116.            "quatre disquettes inutilisées. Veuillez les préparer.\n\n"
  117.            "Attention : cette procédure d'installation suppose "
  118.            "que vous disposez d'au moins deux lecteurs."
  119.            )
  120.   (user orig_user_level)
  121. )
  122.  
  123. ; --------------------------------------------------------------------
  124. (procedure setup_hd_install
  125.    (message 
  126.       "\nCet exemplaire de DeluxePaintV va être installé dans un nouveau "
  127.       "tiroir appelé \"DPaintV\". Vous allez devoir indiquer l'emplacement du "
  128.       "disque dur (ou du dispositif de stockage) où vous voulez que soit créé "
  129.       "ce tiroir.\n\n")
  130.  
  131.    (set app_locate
  132.       (askdir
  133.          (prompt "Veuillez indiquer où vous voulez créer le tiroir "
  134.                  "de DPaintV.")
  135.          (help @askdir-help)
  136.          (default @default-dest)
  137.          ))
  138.  
  139.  
  140.    (set app_path (tackon app_locate "DPaintV"))
  141.    (makedir app_path (infos))
  142. )
  143.  
  144.  
  145.  
  146. ; --------------------------------------------------------------------
  147. ; copy_volume1 
  148. ;    copies files from <app_volume1> into the user's preselected 
  149. ;    destination directory. If we're doing a <hd_install> this procedure
  150. ;    assumes <app_path> has already been set.  If we're doing a 
  151. ;    floppy install, the files will be copied to the newly formatted
  152. ;    'DPaintV' disk.
  153. ;
  154. ;    if either dpaint or dplayer are installed and catalogs directory
  155. ;    will be created. This assumes that app_volume1 contains an empty
  156. ;    catalogs directory and that the user will be prompted for language
  157. ;    installation later.
  158. ;
  159. (procedure copy_volume1
  160.   (complete 5)
  161.   (set program_options 
  162.       (askoptions
  163.          (prompt "Quelles applications souhaitez-vous installer ?")
  164.          (choices "DPaint" "DPlayer")
  165.          (help  "  DPaint  -- installe DPaint et ses fichiers annexes\n"
  166.                 "  DPlayer -- installe l'utilitaire DPaint Player\n\n"
  167.                 @askoptions-help)
  168.          )
  169.       )
  170.   (if (not hd_install)
  171.       ((set DstDiskName "DPaintV")
  172.        (set app_path    (cat DstDiskName ":"))
  173.        (if program_options
  174.            ((format_disk) 
  175.             (if fmt_error (set program_options 0))))))
  176.   (if (bitand INSTF_DPAINT program_options)
  177.       (copyfiles
  178.          (prompt "Copie de DPaint et de ses fichiers annexes...")
  179.          (source app_volume1)
  180.          (dest   app_path)
  181.          (choices "DPaint" "Libs" "Fonts")
  182.          (help @copyfiles-help)
  183.          (infos)
  184.          (fonts)
  185.          ))
  186.   (complete 10)
  187.   (if (bitand INSTF_DPLAYER program_options)
  188.       (copyfiles
  189.          (prompt "Copie de DPlayer...")
  190.          (source app_volume1)
  191.          (dest   app_path)
  192.          (choices "DPlayer")
  193.          (infos)
  194.          (help @copyfiles-help)
  195.          ))
  196.   (set @default-dest app_path)
  197. )
  198.  
  199. ; --------------------------------------------------------------------
  200. (procedure copy_dir
  201.   (copyfiles 
  202.       (prompt  ("Copie de \"%s\"..." app_dir))
  203.       (source  app_volume)
  204.       (dest    app_path)
  205.       (choices app_dir)
  206.       (help    @copyfiles-help)
  207.       (infos)
  208.       (fonts)
  209.       (optional)
  210.       )
  211. )
  212.  
  213. ; --------------------------------------------------------------------
  214. ; copy_volume2 
  215. ;    copies files from <app_volume2> into the user's preselected 
  216. ;    destination directory. If we're doing a <hd_install> this procedure
  217. ;    assumes <app_path> has already been set.  If we're doing a 
  218. ;    floppy install, the files will be copied to the newly formatted
  219. ;    <app_disk2> disk.
  220. ;
  221.  
  222. (procedure copy_volume2
  223.   (complete 15)
  224.   (set options 
  225.       (askoptions 
  226.           (prompt "Quels répertoires souhaitez-vous installer ?")
  227.           (choices "Media" "Textures" "Patterns" "Brush" "Move" "Colours")
  228.           (help "  Media    -- exemples de matières (craie, huile, etc.)\n"
  229.                 "  Textures -- exemples de textures de support\n"
  230.                 "  Patterns -- exemples de motifs de remplissage\n"
  231.                 "  Brush    -- exemples de brosses\n"
  232.                 "  Move     -- exemples de modèles de déplacements\n"
  233.                 "  Colours  -- exemples de couleurs/de palettes\n"
  234.                 "\n"
  235.                 @askoptions-help)
  236.           )
  237.       )
  238.   (if options
  239.       (if (not hd_install)
  240.           ((set DstDiskName app_disk2)
  241.            (set app_path (cat DstDiskName ":"))
  242.            (format_disk)
  243.            (if fmt_error (set options 0)))))
  244.   (set app_volume app_volume2)
  245.   (if (bitand 1 options)
  246.       ((set app_dir "Media") (copy_dir)))
  247.   (complete 20)
  248.   (if (bitand 2 options)
  249.       ((set app_dir "Textures") (copy_dir)))
  250.   (complete 25)
  251.   (if (bitand 4 options)
  252.       ((set app_dir "Patterns") (copy_dir)))
  253.   (complete 30)
  254.   (if (bitand 8 options)
  255.       ((set app_dir "Brush") (copy_dir)))
  256.   (complete 35)
  257.   (if (bitand 16 options)
  258.       ((set app_dir "Move") (copy_dir)))
  259.   (complete 40)
  260.   (if (bitand 32 options)
  261.       ((set app_dir "Colours") (copy_dir)))
  262. )
  263.  
  264.  
  265. ; --------------------------------------------------------------------
  266. ; copy_volume3 
  267. ;    copies files from <app_volume3> into the user's preselected 
  268. ;    destination directory. If we're doing a <hd_install> this procedure
  269. ;    assumes <app_path> has already been set.  If we're doing a 
  270. ;    floppy install, the files will be copied to the newly formatted
  271. ;    <app_disk3> disk.
  272. ;
  273.  
  274. (procedure copy_volume3
  275.   (complete 45)
  276.   (set options 
  277.       (askoptions 
  278.           (prompt "Quels répertoires souhaitez-vous créer ?")
  279.           (choices "Picture" "Anim" "Animbrush" "Karafonts")
  280.           (help "  Picture   -- exemples d'images\n"
  281.                 "  Anim      -- exemples d'animations\n"
  282.                 "  AnimBrush -- exemples de brosses animées\n"
  283.                 "  Karafonts -- exemples de polices de caractères en couleurs\n"
  284.                 "\n"
  285.                 @askoptions-help)
  286.           )
  287.       )
  288.   (if options
  289.       (if (not hd_install)
  290.           ((set DstDiskName app_disk3)
  291.            (set app_path (cat DstDiskName ":"))
  292.            (format_disk)
  293.            (if fmt_error (set options 0)))))
  294.   (set app_volume app_volume3)
  295.   (if (bitand 1 options)
  296.       ((set app_dir "Picture") (copy_dir)))
  297.   (complete 50)
  298.   (if (bitand 2 options)
  299.       ((set app_dir "Anim") (copy_dir)))
  300.   (complete 55)
  301.   (if (bitand 4 options)
  302.       ((set app_dir "Animbrush") (copy_dir)))
  303.   (complete 60)
  304.   (if (bitand 8 options)
  305.       ((set app_dir "Karafonts") (copy_dir)))
  306. )
  307.  
  308. ; --------------------------------------------------------------------
  309. ; do_register
  310. ;   asks the user if he/she wishs to run and register their
  311. ;   copy of dpaint now. if the answer is yes, launches the program...
  312. ;
  313.  
  314. (procedure do_register
  315.   (working "Lancement de DeluxePaintV...")
  316.  (run ("run >NIL: <NIL: \"%s\"" (tackon @default-dest "DPaint"))
  317.        (prompt "Voulez-vous enregistrer maintenant cet exemplaire de DeluxePaintV ?")
  318.        (help "DeluxePaintV doit être enregistré avant la première utilisation. "
  319.              "Si vous sélectionnez \"Continuer\", le programme d'installation va "
  320.              "lancer DeluxePaintV pour que vous puissiez saisir les informations "
  321.              "relatives à l'enregistrement. Préparez la carte d'enregistrement. "
  322.              "En cliquant sur \"Interrompre\", vous pouvez lancer et "
  323.              "enregistrer le programme ultérieurement."
  324.              )
  325.        (confirm)
  326.        )
  327. )
  328.  
  329. ; --------------------------------------------------------------------
  330. ; update_asl:
  331. ;   updates asl.library to v38; asks expert users for confirmation.
  332. ;
  333. ;                             WARNING
  334. ;   The installer WILL COPY the supplied library over the user's
  335. ;   current library WITHOUT REGARD to the current library's version
  336. ;   number!!! This procedure should NOT be called if the library
  337. ;   version is v38 or better.
  338. ; 
  339.  
  340. (procedure update_asl
  341.   (working "Vérification du numéro de version \"asl.library\" ...")
  342.   (copylib (prompt "Mise à jour de \"asl.library\"...")
  343.            (help "Pour que DeluxePaintV fonctionne correctement, vous "
  344.                  "aurez besoin de \"asl.library\" version 38 (ou une version "
  345.                  "plus récente). Cette bibliothèque ne doit être mise à jour "
  346.                  "que si le numéro de version est inférieur au numéro de la "
  347.                  "version minimum nécessaire pour DeluxePaintV.\n\n"
  348.                  @copylib-help
  349.                  )
  350.            (source (tackon app_volume4 "v38_libs/asl.library"))
  351.            (dest "libs:")
  352.            (confirm))
  353. )
  354.  
  355.  
  356. ; --------------------------------------------------------------------
  357. ; copy_volume4
  358. ;    copies files from <app_volume4> into the user's preselected 
  359. ;    destination directory. If we're doing a <hd_install> this procedure
  360. ;    assumes <app_path> has already been set.  If we're doing a 
  361. ;    floppy install, the files will be copied to the newly formatted
  362. ;    <app_disk4> disk.
  363. ;
  364. ;    Updates the asl.library if necessary.
  365. ;
  366. (procedure copy_volume4
  367.   (complete 65)
  368.   (set options 
  369.       (askoptions 
  370.           (prompt "Quels répertoires souhaitez-vous installer ?")
  371.           (choices "Gallery" "Macros" "AGA_Art" "Icons")
  372.           (help  "  Gallery -- gallerie d'art\n"
  373.                  "  Macros  -- exemple de macros arexx\n"
  374.                  "  AGA_Art -- exemples d'images AGA\n"
  375.                  "  Icons   -- exemples de fichiers d'icône\n"
  376.                  "\n"
  377.                  @askoptions-help)
  378.           )
  379.       )
  380.   (if options
  381.       (if (not hd_install)
  382.           ((set DstDiskName app_disk4)
  383.            (set app_path (cat DstDiskName ":"))
  384.            (format_disk)
  385.            (if fmt_error (set options 0)))))
  386.   (set app_volume app_volume4)
  387.   (complete 70)
  388.   (if (bitand 1 options)
  389.       ((set app_dir "Gallery") (copy_dir)))
  390.   (complete 75)
  391.   (if (bitand 2 options)
  392.       ((set app_dir "Macros") (copy_dir)))
  393.   (complete 80)
  394.   (if (bitand 4 options)
  395.       ((set app_dir "AGA_Art") (copy_dir)))
  396.   (complete 85)
  397.   (if (bitand 8 options)
  398.       ((set app_dir "Icons") (copy_dir)))
  399.   (complete 90)
  400.  
  401.   (set asl_version (/ (getversion "libs:asl.library") 65535))
  402.   (transcript "asl_version = " asl_version)
  403.   (if (< asl_version 38)
  404.       (update_asl))
  405.   
  406. )
  407.  
  408. ; --------------------------------------------------------------------
  409. ; do_exit
  410. ;   does the language installation
  411. ;   does the program registrations if requested
  412. ;   puts up regcard reminder and says thanks...
  413. ;
  414. (procedure do_exit
  415.   (complete 95)
  416.   (set options 
  417.       (askoptions 
  418.           (prompt "Quelle langue souhaitez-vous installer ?")
  419.           (choices "Français" "Deutsch")
  420.           (help  "Français -- installe les catalogues en français dans DPaintV:Catalogs/Français\n\n"
  421.                  "Deutsch  -- installe les catalogues en allemand dans DPaintV:Catalogs/Deutsch\n\n"
  422.                  @askoptions-help)
  423.           )
  424.       )
  425.   (set app_volume (tackon app_volume4 "Catalogs"))
  426.   (set app_path   (tackon @default-dest "Catalogs"))
  427.   (if (bitand 1 options)
  428.       ((set app_dir "Français") (copy_dir)))
  429.   (if (bitand 2 options)
  430.       ((set app_dir "Deutsch") (copy_dir)))
  431.  
  432.   (complete 98)
  433.   (if hd_install
  434.       (startup @app-name
  435.         (prompt "\nAjouter l'affectation DPaintV: à s:user-startup?")
  436.          (help   "Toutes les icônes installées par DeluxePaintV indiqueront "
  437.                  "par défaut DPaintV:DPaint. L'ajoût de l'affectation ci- "
  438.                  "dessus au fichier de paramètres permet de charger ces fichiers "
  439.                  "tout en lançant DeluxePaintV en cliquant deux fois sur l'icône.\n\n"
  440.  
  441.                  @startup-help
  442.                  )
  443.          (command ("Assign DPaintV: \"%s\" defer" @default-dest))
  444.          ))
  445.  
  446.   (if hd_install
  447.       (run ("assign DPaintV: \"%s\"" @default-dest)
  448.            (prompt ("\nAffecter DPaintV: à \"%s\" ?" @default-dest))
  449.            (help "DeluxePaintV recherche les images, les brosses et les textures "
  450.                  "dans les sous-répertoires de l'affectation logique "
  451.                  "\"DPaintV:\" par défaut.\n\n"
  452.                  "Cette affectation n'est nécessaire que si vous voulez lancer "
  453.                  "DeluxePaintV avant de relancer l'ordinateur et d'utiliser "
  454.                  "s:user-startup. "
  455.                  )
  456.            (confirm)))
  457.              
  458.   (complete 99)
  459.   (do_register)
  460.  
  461.   (complete 100)
  462.   (user expert_user_level)
  463.   (message "\nN'oubliez pas de remplir et de poster la carte "
  464.            "d'enregistrement de DeluxePaintV dès que possible.\n\n"
  465.            "Merci d'avoir choisi DeluxePaintV !"
  466.            )
  467.   (exit)
  468. )
  469.  
  470.  
  471. ; --------------------------------------------------------------------
  472. ;                   This is the actual Install Script
  473. ; --------------------------------------------------------------------
  474. ;
  475. ; tell the user that DPaintV requires AmigaDos 2.04
  476. ;
  477. (if (< AmigaDos_Version 37)
  478.     (
  479.       (abort
  480.          "DeluxePaintV ne peut fonctionner avec cette version de l'AmigaDOS. "
  481.          "DeluxePaintV nécessite au minimum l'AmigaDOS 2.04"
  482.          )
  483.     )
  484. )
  485. ;
  486. ; ask the user if this is a floppy or harddisk installation
  487. ; and set the value of <hd_install>
  488. ;
  489. (user expert_user_level)
  490. (set hd_install 
  491.    (= 0
  492.      (askchoice
  493.            (prompt "\nSélectionnez la méthode d'installation :")
  494.            (help
  495.                "DeluxePaintV doit être enregistré avant toute utilisation. Vous "
  496.                "pouvez le faire lors de l'installation du programme sur le disque "
  497.                "dur (ou tout autre dispositif de stockage), ou sur une copie des "
  498.                "disquettes de DeluxePaintV.\n"
  499.                "  Sélectionnez \"Disque dur\" pour installer DeluxePaintV sur disque dur.\n"
  500.                "  Sélectionnez \"Disquettes\" pour installer DeluxePaintV sur disquettes.\n"
  501.                "\n"
  502.                @askchoice-help
  503.                )
  504.            (choices "Disque dur" "Disquettes")
  505.            (default 0)
  506.            )
  507.       )
  508. )
  509. (user orig_user_level)
  510.  
  511. (if hd_install
  512.     (setup_hd_install)
  513.     (setup_floppy_install))
  514.  
  515. (copy_volume1)
  516. (copy_volume2)
  517. (copy_volume3)
  518. (copy_volume4)
  519. (do_exit)
  520.